home *** CD-ROM | disk | FTP | other *** search
- .MODEL TINY
- .386P
-
-
- .DATA
-
- nadpis db 'Detekcia Soft-Ice identifikovanim jeho obsluhy Int 68h',0dh, 0ah,24h
- nasiel db 'Soft-Ice aktivny',24h
- nenasiel db 'Soft-Ice nenasiel',24h
-
- .CODE
- .STARTUP
- lea dx, nadpis
- mov ah,9 ;cislo funkcie->Zobraz retazec
- int 21h ;volanie INT 21h
- ;zobrazi nadpis
-
- xor ax,ax ;vynuluje ax
- mov es,eax ;do es nastavi 0
- mov bx, word ptr es:[68h*4] ;do bx da offsetovu cast adresy obluhy int 68h
- mov es, word ptr es:[68h*4+2] ;do es da segmentovu cast adresy obsluhy int 68h
- mov eax, 0f43fc80h ;do eax nastavi prve byty obsluhy int 68h Soft-Ice
- cmp eax, dword ptr es:[ebx] ;testuje, ci je Soft-Ice aktivny v pamati
- jz short skok ;skok, ak je Soft-Ice aktivny v pamati
-
- lea dx, nenasiel
- jmp short dalej
-
- skok:
- lea dx, nasiel
-
- dalej:
- mov ah,9 ;cislo funkcie->Zobraz retazec
- int 21h ;volanie INT 21h
-
-
-
- mov ax,4c00h ;cislo funkcie->Ukonci program
- int 21h ;volanie INT 21h
-
-
- END